Создает указанное имя файла и возвращает объект TextStream

object.CreateTextFile(filename[, overwrite[, unicode]])

Параметры
object Обязательный. Всегда имя объекта FileSystemObject
FileName Обязательный. Строковое выражение, которое задает имя создаваемого файла. Если путь к файлу опущен, то файл создается в текущем каталоге текущего диска
Overwrite Необязательный. Значение типа Boolean, указывающее на возможность записи на место существующего файла. В том случае, когда значение равно True, такая запись разрешается; в противном случае значение равно False. Если параметр опущен, запись поверх существующего файла не разрешается
Unicode Необязательный. Значение типа Boolean, указывающее, создается ли файл, использующий набор символов Unicode, или файл с набором символов ASCII. Значение True задает создание файла с кодировкой Unicode; значение False – с набором символов ASCII. Если параметр опущен, предполагается файл с кодировкой ASCII

Замечания
Следующий код иллюстрирует, как использовать CreateTextFile метод для создания и открытия текстового файла:

Sub CreateAfile
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set a = fs.CreateTextFile("c:\testfile.txt", True)
    a.WriteLine("This is a test.")
    a.Close
End Sub

Если параметр overwrite установлен в False, или not provided, для имени файла, которое уже существует, произойдет ошибка.